Code
election <- read_csv(here::here("session1/data/election2019.csv"),
skip = 1,
col_types = cols(
.default = col_character(),
OrdinaryVotes = col_double(),
AbsentVotes = col_double(),
ProvisionalVotes = col_double(),
PrePollVotes = col_double(),
PostalVotes = col_double(),
TotalVotes = col_double(),
Swing = col_double()
)
)
e_grn <- election |>
group_by(DivisionID) |>
summarise(
DivisionNm = unique(DivisionNm),
State = unique(StateAb),
votes_GRN = TotalVotes[which(PartyAb == "GRN")],
votes_total = sum(TotalVotes)
) |>
mutate(perc_GRN = votes_GRN / votes_total * 100)
e_grn |>
mutate(State = fct_reorder(State, perc_GRN)) |>
ggplot(aes(x=perc_GRN, y=State)) +
geom_quasirandom(groupOnX = FALSE, varwidth = TRUE) +
labs(
x = "First preference votes %",
y = ""
) +
xlim(c(0,50))